home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac: Not for Sale / Another.not.for.sale (Australia).iso / fade into you / getting there / WWW / MacHTTP Extras / Script Tools / Examples / Shutdown Example < prev   
Encoding:
Text File  |  1993-07-08  |  277 b   |  7 lines  |  [TEXT/R*ch]
  1. set result to display dialog "Are you sure you want to shutdown?" ¬
  2.     buttons {"Shutdown", "Restart", "Cancel"} ¬
  3.     default button "Cancel"
  4. if button returned of result = "Shutdown" then ¬
  5.     shutdown without rest
  6. if button returned of result = "Restart" then ¬
  7.     shutdown with rest